gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGpicDel.asp

    <!-- #INCLUDE FILE="login.asp" -->

<%	'///*********************************
	'   广告图删除  参数：id 广告图 id
	'********************************///
	
	
  pid=trim(request("id"))

  if isnumeric(pid) then
  
  Dim XMLnode
  Dim brstr:brstr=chr(13)&chr(10)&chr(9)  '规范 XML 样式

	
  	conn.execute("delete from  Advertisement where Picid="&cint(pid))
  	
  	'' 此过程实际上是从 pictrue.xml 删除一条数据 可以使用 xml 中的 remove 取代 暂时用此方法
  	'' 
	if PubCopyFile(dataxml&"/pictrueBase.xml",dataxml&"/pictrue.xml")="Suc" then	

	Dim objXML2,rootNewNode 	
  	
  	sql="select * from Advertisement"
 	rs.open sql,conn,1,1
  	do while not rs.eof    	
  	XMLnode=brstr&"<Pic><Picid>"&rs(0)&"</Picid><Picurl>"&rs(1)&"</Picurl></Pic>"&brstr  	
  	
  	''' 取出记录存入 xml
  	''' 
  	Set objXML =Server.CreateObject("Microsoft.XMLDOM")  '创建一个XML对像
    strSourceFile=Server.MapPath(dataxml&"/pictrue.xml")
    objXML.load(strSourceFile)  '把XML文件读入内存
	Set objRootsite = objXML.documentElement.selectSingleNode("Pictrue")  '选取节点 Pictrue	
  	set objXML2=Server.CreateObject("Microsoft.XMLDOM")    '建立一个新XML对像 
	objXML2.loadXML(XMLnode)     '把XML版片段读入内存中 	
	set rootNewNode=objXML2.documentElement    '获得objXML2的根节点 	 
	objRootsite.appendChild(rootNewNode)    '把XML片段插入 
	objXML.save(strSourceFile)
	Set objXML2=nothing
	set rootNewNode=nothing	  
    Set objXML =nothing
    '''    	
  	rs.movenext  	
	loop
	rs.close

    end if

	
	
  end if

%>